%TP1 - partie 2.1
clc;
close all;

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Image en niveau de gris

%--------------------------------------------------------------------------
% question 1
lena=imread('TP1_ressources/lena.pgm');
% figure, imshow(lena);

%--------------------------------------------------------------------------
% question 2
% Image en niveaux de gris
% la taille en pixels
size(lena);

% plus d'infos
info=imfinfo('TP1_ressources/lena.pgm');

% la taille en octets
info.FileSize;

%--------------------------------------------------------------------------
% question 3
%variance = std2 ^ 2
std2(lena) ^ 2;

%intensite moyenne
mean2(lena);

%intensite max
max(max(lena));

%intensite min
min(min(lena));

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Couleurs et LUT

%--------------------------------------------------------------------------
% question 1
[clown, colorm]=imread('TP1_ressources/clown_lumi.bmp');
%converti la figure courante en type double
clown_double = double(clown);

% affichage en niveau de gris
%figure, imshow(clown);

%--------------------------------------------------------------------------
% question 2

% figure, subplot(2, 2, 1);
% image(clown);
% title('Utilisation de la fonction image');
% 
% subplot(2, 2, 2);
% imagesc(clown);
% title('Utilisation de la fonction imagesc');
% 
% subplot(2, 2, 3);
% imshow(clown);
% title('Utilisation de la fonction imshow');
% 
% subplot(2, 2, 4);
% image(clown_double);
% title('Affichage de l image transtypée en double');


%--------------------------------------------------------------------------
% question 3

% figure, imagesc(clown);
% lutndg;

%--------------------------------------------------------------------------
% question 4 : inversion des couleurs

% figure, image(clown)
% colormap(1-colorm);
% colorbar('location','eastoutside')

%--------------------------------------------------------------------------
% question 5

rgbImage = imread('TP1_ressources/clown.bmp');

% affichage de la composante bleue
imB = rgbImage;
imB(:,:,1) = zeros();
imB(:,:,2) = zeros();

figure, subplot(2, 2, 1);
imshow(imB);
title('Composante bleue');

% affichage de la composante verte
imG = rgbImage;
imG(:,:,1) = zeros();
imG(:,:,3) = zeros();

subplot(2, 2, 2);
imshow(imG);
title('Composante verte');

% affichage de la composante rouge
imR = rgbImage;
imR(:,:,2) = zeros();
imR(:,:,3) = zeros();

subplot(2, 2, 3);
imshow(imR);
title('Composante rouge');

subplot(2, 2, 4);
imshow(rgbImage);
title('Image RGB');

